\name{ct_p_bubble}
\alias{ct_p_bubble}
\title{
  Plot PTS and GD as bubbles with radius PDL
}
\description{
  This functions plots a table that has been returned by ct_table. It uses the PTS as x-value, the GD as y-value and the PDL as radius to draw a bubble for each team.
}
\usage{
  ct_p_bubble(data, savePDF = FALSE, ...)
}
\arguments{
  \item{data}{
    a table that has been returned by ct_table
  }
  \item{savePDF}{
    if provided, stores a PDF to the given path
  }
  \item{...}{
    any other argument that can be parsed by plot()
  }
}
}
\details{
The savePDF argument stores the resulting plot in an A4 PDF file. If you have other requirements, please use your own graphics device and omit the savePDF argument.
}
\examples{
# Load and check the crosstab
  
data(bundesliga_12_13)
ct_check(bundesliga_12_13)
  
# Calculate a table from the crosstab
  
res <- ct_table(bundesliga_12_13)
  
# Save the table as a PDF
  
pdf("file.pdf", width = 7.8, height = 11.2, paper = "a4", pointsize = 8)
ct_p_bubble(res)
dev.off()
  
# Plot the table as bubbles
  
ct_p_bubble(res)
}
\keyword{ misc }